home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.07 Jul 90 / Data Exchange ƒ / Driver.p < prev    next >
Encoding:
Text File  |  1989-01-19  |  512 b   |  22 lines  |  [TEXT/MPS ]
  1. Program Driver;
  2. USES Test;
  3.  
  4. BEGIN
  5.    a := 1;
  6.     b := 10;
  7.     c := 100;
  8.    WriteLn ('Values set directly:', a, b, c, '.');
  9.    Initialize (25);
  10.     WriteLn ('Value set indirectly to 25 is ', GetVal);
  11. END.set $0006 EntryId TEST
  12.  
  13. Dictionary: FirstId 3
  14.       3: INITIALIZE
  15.       4: Main
  16.  
  17. Module:              Flags $08 ModuleId INITIALIZE SegmentId Main
  18. Reference:           Flags $90 RefId TEST Short Offsets
  19.                       0008
  20. Content:             Flags $08
  21. Contents offset $0000 size $001C
  22. 000000: 4E56 0000      '